home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / whisper / whisper.cfg < prev    next >
Text File  |  1991-10-18  |  53KB  |  2,347 lines
  1. #################################################
  2. #
  3. #    WHISPER config file
  4. #
  5. #    1990.11.11    v0.04
  6. #    1990.11.16    v0.05
  7. #    1990.11.27    v0.06
  8. #    1990.12.01    v0.07
  9. #    1990.12.02    v0.08
  10. #    1990.12.03    v0.09
  11. #    1990.12.04    v0.10
  12. #    1990.12.08    v0.11
  13. #
  14. #################################################
  15. #    access(file)        file access check
  16. #    add("macro",n)        add digit macro
  17. #    anime(agp file)        original anime display
  18. #    bakcol(n)            message wind bakgrnd color
  19. #    cd_back()            CD back play
  20. #    cd_menu()            CD control panel
  21. #    cd_next()            CD next play
  22. #    cd_play()            CD play top
  23. #    cd_play_no(no)        CD NO. Play
  24. #    cd_stop()            CD stop
  25. #    cd_vol_down()        CD vol down
  26. #    cd_vol_up()        CD vol up
  27. #    cd_vol_set(vol)        CD vol direct set
  28. #    cfg_load(file)        ext cfg file load
  29. #    chdir(dir)            cheng directory
  30. #    cmdsset("ttl","cmds"..)    JACK cmds set
  31. #    color(n)            character color set
  32. #    copy(file)            copy file
  33. #    copy_name("mac",file)    file name get
  34. #    cut_word("mac",str,pos,len)Cut Word
  35. #    date2day(date)        date fomat to day count
  36. #    delete(file)        delete file
  37. #    echo("",macro,digit...)    put string for message wind
  38. #    error("mac")        error code get
  39. #    eup(eupny file)        play eup music
  40. #    eupstop()            stop eup music
  41. #    exit()            endof whisper
  42. #    file_down(file)        termnal down load to file
  43. #    file_up(file)        nomal file upload
  44. #    fsecret(file)        file secret check
  45. #    gcls()            graphic cleaer screen
  46. #    getdir("mac")        get crent dir
  47. #    input("macro")        get string
  48. #    instr(str,ptn)        in strring chk
  49. #    key_func("func")        key funcsion exec
  50. #    lincol(n)            message wind line color
  51. #    load(no,ch,file,fg)    load file to wind
  52. #    lock(text file)        file to secret
  53. #    macset("ttl","cmds"....)    1 line macro setup
  54. #    make_snd(snd file)        makeing snd file
  55. #    mclose()            wind close
  56. #    memo(no,ch)        memo buffer up or insret
  57. #    memo_get("mac")        memo buffer to macro
  58. #    memo_set(str)        memo buffer set string
  59. #    mem_file(file)        memory file loading
  60. #    merge(file,....)        joint file
  61. #    mkdir(dir)            makeing dir
  62. #    mopen()            wind open 
  63. #    mosget(sw,x,y)        now mos positon get
  64. #    palcheng(c,r,g,b)        one palette cheng
  65. #    palette()            debug command
  66. #    pastr(x,y,c,b,str)        pause display string x.y
  67. #    rename(new,old)        rename file
  68. #    rmdir(dir)            delete dir
  69. #    rs_setup()            RS232C mode setup
  70. #    save(no,ch,file,fg)    save wind buf
  71. #    sleep(n)            sleeping sec time
  72. #    snd(sound file)        play snd file
  73. #    stmenu(x,y,c,"menu"...)    tate menu selecter 8*8 char
  74. #    sub("macro",n)        sub digit macro
  75. #    super(str)            scrool put string
  76. #    switch(sec,ptn,...)    wait form term
  77. #    symenu(x,y,c,"menu"...)    tate menu selecter 8*8 char
  78. #    tabset(n)            TAB size set
  79. #    talk_new(str,snd file)    talking string set
  80. #    talk_str(str)        talking string chk & play
  81. #    tclose()            terminal close
  82. #    tgetc("macro")        one char get term
  83. #    tgets("macro")        one line get term
  84. #    tiff(tiff)            tiff file display 32K or 16
  85. #    time("macro")        now time get
  86. #    tmenu(x,y,c,"menu"...)    tate menu selecter 8*16 char
  87. #    topen(port)        terminal open
  88. #    tpara()            RS232C mode get to macro
  89. #    tputc(str)            one char put term
  90. #    tputs(str)            string put term
  91. #    type(file)            display file
  92. #    unlock(lock file)        secret to nomal file
  93. #    wait(sec)            wait for terminal
  94. #    wfile(no,ch,"mac")        wind file name get
  95. #    wflush()            wind reflush
  96. #    wild(file,"wild")        wild crad chk
  97. #    wnewchk(no,ch)        wind rewrite chk
  98. #    wputc(no,str)        one char put wind
  99. #    wputs(no,str)        string put wind
  100. #    wsecret(no,ch)        wind secret sw chk
  101. #    wtype(no,ch)        type wind buff if no = 999 then close
  102. #    xmodem_down(file)        xmodem file download
  103. #    xmodem_up(file)        xmodem file upload
  104. #    yes("macro")        yes clip bord
  105. #    yesno("macro")        yes no clip bord
  106. #################################################
  107. #+++++++++++++++++++++++++++++++++++++++
  108. #    Edit Key define
  109. #+++++++++++++++++++++++++++++++++++++++
  110. .1D00 = CR
  111. .4500 = CR
  112. .0F00 = BS
  113. .4B00 = DEL
  114. .4B10 = LEFT_DEL
  115. .4B04 = RIGHT_DEL
  116. .1000 = TAB
  117. .4D00 = UP_CUR
  118. .1310 = UP_CUR
  119. .2B10 = DOWN_CUR
  120. .5000 = DOWN_CUR
  121. .4F00 = LEFT_CUR
  122. .1F10 = LEFT_CUR
  123. .5100 = RIGHT_CUR
  124. .2010 = RIGHT_CUR
  125. .1E10 = LEFT_WORD
  126. .4F10 = LEFT_WORD
  127. .2110 = RIGHT_WORD
  128. .5110 = RIGHT_WORD
  129. .4F04 = LINE_TOP
  130. .5104 = LINE_BTM
  131. .2A10 = UP_LINE
  132. .1210 = DOWN_LINE
  133. .4D10 = UP_SCR
  134. .4D04 = UP_SCR
  135. .1410 = UP_SCR
  136. .6E00 = UP_SCR
  137. .5010 = DOWN_SCR
  138. .5004 = DOWN_SCR
  139. .2C10 = DOWN_SCR
  140. .7000 = DOWN_SCR
  141. .1610 = DEL_LINE
  142. .1710 = UNDO
  143. .2F10 = INS_LINE
  144. .4800 = INS_SW
  145. .4E00 = ACT_CHENG
  146. .5D00 = MIKE
  147. .5E00 = JOHN
  148. .5F00 = KENT
  149. .6000 = JACK
  150. .5D10 = MIKE_TERM
  151. .5E10 = JOHN_TERM
  152. .5F10 = KENT_TERM
  153. .1110 = SCL_SW
  154. .6D00 = TANGO
  155. .6100 = MEMO
  156. .0110 = _SHELL_CALL
  157. .0104 = _SHELL_CALL
  158. .2D10 = _LINE_UPLOAD
  159. .2E10 = _UPLOAD
  160. .6200 = CUT_COPY
  161. .6300 = CUT_KEY
  162. .6400 = COPY_KEY
  163. .6500 = MEMO
  164. .6210 = _BUF_CHG_0
  165. .6310 = _BUF_CHG_1
  166. .6410 = _BUF_CHG_2
  167. .6510 = _BUF_CHG_3
  168. .6610 = _BUF_CHG_4
  169. .6204 = _BUF_CHG_0
  170. .6304 = _BUF_CHG_1
  171. .6404 = _BUF_CHG_2
  172. .6504 = _BUF_CHG_3
  173. .6604 = _BUF_CHG_4
  174. #+++++++++++++++++++++++++++++++++++++++
  175. #    Term Key define
  176. #+++++++++++++++++++++++++++++++++++++++
  177. ^4E00 = ACT_CHENG
  178. ^5D00 = MIKE
  179. ^5E00 = JOHN
  180. ^5F00 = KENT
  181. ^6000 = JACK
  182. ^6100 = MEMO
  183. ^2A10 = LINE_SW
  184. ^5D10 = MIKE_TERM
  185. ^5E10 = JOHN_TERM
  186. ^5F10 = KENT_TERM
  187. ^6D00 = TANGO
  188. ^6E00 = BACK_SCR
  189. ^7000 = FOR_SCR
  190. ^6210 = _BUF_CHG_0
  191. ^6310 = _BUF_CHG_1
  192. ^6410 = _BUF_CHG_2
  193. ^6510 = _BUF_CHG_3
  194. ^6610 = _BUF_CHG_4
  195. ^6204 = _BUF_CHG_0
  196. ^6304 = _BUF_CHG_1
  197. ^6404 = _BUF_CHG_2
  198. ^6504 = _BUF_CHG_3
  199. ^6604 = _BUF_CHG_4
  200. #---------------------------------
  201. # Command.Com Like Shell Call
  202. #---------------------------------
  203. _SHELL_CALL {
  204.     command(99)
  205. }
  206. _LINE_UPLOAD {
  207.     wgets("RET",99,99)
  208.     tputs("\(RET)\n")
  209. }
  210. _UPLOAD {
  211.     wupload(99)
  212. }
  213. _BUF_CHG_0 {
  214.     wchild(99,0);
  215. }
  216. _BUF_CHG_1 {
  217.     wchild(99,1);
  218. }
  219. _BUF_CHG_2 {
  220.     wchild(99,2);
  221. }
  222. _BUF_CHG_3 {
  223.     wchild(99,3);
  224. }
  225. _BUF_CHG_4 {
  226.     wchild(99,4);
  227. }
  228. #---------------------------------
  229. # Ext Config Loading Check & load
  230. #---------------------------------
  231. event_load {
  232.     if ( EVENT_CFG_FLG ) {
  233.     cfg_load("\(HOME)EVENT.CFG")
  234.     EVENT_CFG_FLG = 1;
  235.     }
  236. }
  237. help_load {
  238.     if ( HELP_CFG_FLG ) {
  239.     cfg_load("\(HOME)HELP.CFG")
  240.     HELP_CFG_FLG = 1;
  241.     }
  242. }
  243. #++++++++++++++++++++++++++++
  244. # WHISPER Startup Founc
  245. #++++++++++++++++++++++++++++
  246. start {
  247.     WHIS_COL = 1;
  248.     MIKE_COL = 2;
  249.     JOHN_COL = 3;
  250.     KENT_COL = 4;
  251.     JACK_COL = 5;
  252.     RED_COL = 8;
  253.  
  254.     opening()            # opening message display
  255.     time("STIME")        # Get Now Time
  256.  
  257.     SPACE = "                                                "
  258.     if ( FDATE ) { FDATE = DATE }
  259.     if ( LDATE ) { LDATE = DATE }
  260.     if ( _FDAY ) { _FDAY = TODAY }
  261.  
  262.     if      ( ACOUNT < 1 )  { LEVEL = 0 }    # Farst
  263.     else if ( ACOUNT < 2 )  { LEVEL = 1 }    # Biginer's
  264.     else if ( ACOUNT < 5 )  { LEVEL = 2 }
  265.     else if ( ACOUNT < 10 ) { LEVEL = 3 }
  266.     else if ( ACOUNT < 20 ) { LEVEL = 4 }
  267.     else if ( ACOUNT < 30 ) { LEVEL = 5 }    # Whisper's Pro
  268.     inc(ACOUNT)            # inc Whisper access count
  269.  
  270.     if ( LDATE ! DATE ) {
  271.     if ( TODAY = "12/24" ) {
  272.         event_load()
  273.         merry_xmas()
  274.     } else if ( TODAY = "12/25" ) {
  275.         event_load()
  276.         merry_xmas()
  277.     } else {
  278.         _XMAS_EVENT = 0;
  279.     }
  280.     if ( TODAY = "02/14" ) {
  281.         event_load()
  282.         barentin_day()
  283.     }
  284.     if ( BASDAY = TODAY ) {
  285.         event_load()
  286.         happy_birthday()
  287.     }
  288.     if ( _FDAY = TODAY ) {
  289.         event_load()
  290.         I_love_you()
  291.     }
  292.     }
  293.  
  294.     if ( _PORT ) {        # init RS232C para
  295.         tpara()
  296.     _BREAK_TIME = 500;
  297.     _CRWAIT = 100;
  298.     _LOGMAX = 1000;
  299.     _MODEM = 0;        # 1200 bps Std Modem
  300.     _POHN = 0;        # Puls Pohn
  301.     _ATCMD1 = "ATD"
  302.     _ATCMD2 = "ATZ"
  303.     _ATCMD3 = "ATH0"
  304.     _CUR_COL = 14;
  305.     }
  306.     topen(_PORT)        # Terminal init
  307.  
  308.     if ( LEVEL = 0 ) {
  309.     help_load()
  310.     user_setup()
  311.     setup_nifty()
  312.     setup_nanno()
  313.     setup_com()
  314.     }
  315.  
  316.     jack_std_cmds()        # Jack command init
  317.     wclose()
  318.     wind_mike()            # Init Open Message
  319.  
  320.     cfg_load("\(HOME)MACRO.CFG")    # System line Macro Load
  321.     mac_init()                # System line Macro Init
  322. }
  323. #+++++++++++++++++++++++++++++++++++++++
  324. # Whisper Cmds line "WHISPER" sub func
  325. #+++++++++++++++++++++++++++++++++++++++
  326. whisper {
  327.     event_load()
  328.     whisper_sub()
  329. }
  330. #---------------------------
  331. # Opening Msg founc
  332. #---------------------------
  333. opening {
  334.     bakcol(WHIS_COL)
  335.     echo("             ― Dedicated to You ―\n")
  336.     echo("\n")
  337.     echo("                  W:WONDERFUL \n")       
  338.     echo("                  H:HELPFUL \n")
  339.     echo("                  I:INTELLIGENT \n")
  340.     echo("                  S:SUPERIOR SOFT \n")
  341.     echo("                  P:PERFECT \n")
  342.     echo("                  E:EXCITING \n")
  343.     echo("                  R:ROMANTIC \n")
  344.     echo("\n")
  345.     echo("         Lady's networking system \x22WHISPER\x22")
  346.     sleep(3)
  347. }
  348. #++++++++++++++++++++++++++++++
  349. # WHISPER End of Founc (EXIT)
  350. #++++++++++++++++++++++++++++++
  351. end {
  352.     bakcol(WHIS_COL)
  353.  
  354.     time("NOW")
  355.     sub("NOW",STIME)        # get whisper access time
  356.  
  357.     echo("\n\n\t")
  358.     if ( NOW < 600 ) {        # 0 - 10分
  359.     echo("あれ？もう終わりですか？\n")
  360.  
  361.     } else if ( NOW < 1800 ) {    # 10 - 30分
  362.     echo("もう終わりですか？\n")
  363.  
  364.     } else if ( NOW < 3600 ) {    # 30 - 60分
  365.     echo("そろそろ終わりですね？\n")
  366.  
  367.     } else {            # 60 - over
  368.     echo("いい時間になってますね\n")
  369.     }
  370.  
  371.     yesno("RET")
  372.     if ( RET = 0 ) {
  373.     return(0)        # Not endof Whisper
  374.     }
  375.  
  376.     echo("\c\n\n\t")
  377.     if ( NOW < 600 ) {        # 0 - 10分
  378.     echo("短い時間でしたが楽しめましたか？\n")
  379.  
  380.     } else if ( NOW < 3600 ) {    # 10 - 60分
  381.     echo("今日は素晴らしい出会いがありましたか？\n")
  382.  
  383.     } else {            # 60 - over
  384.     echo("ほんと御苦労さまでした\n")
  385.     }
  386.  
  387.     echo("\n\t今日の思い出を残しましょうか？\n")
  388.     yesno("RET")
  389.     if ( RET ! 0 ) {
  390.     file_all_save()
  391.     if ( VAL ! 0 ) {
  392.         return(0)        # file save error
  393.     }
  394.     }
  395.  
  396.     cd_stop()
  397.     pastr(220,220,15,0,"じゃぁ・・・・・")
  398.     return(1)            # end of whisper
  399. }
  400. #---------------------
  401. # Get "KEYWORD" founc
  402. #---------------------
  403. get_keyword {
  404.     echo("\n\tSecret Keyword ? ")
  405.     NOECHO = 1;
  406.     input("KEYWORD")        # No Echo Mode input
  407.     NOECHO = 0;
  408.     echo("Trust me....\n")
  409. }
  410. #-------------------------
  411. # Wind buffer all save
  412. #-------------------------
  413. file_all_save {
  414.     NO = 0;            # Wind No
  415.     do ( NO < 3 ) {
  416.     CH = 0;            # Wind buffer ch
  417.     do ( CH < 5 ) {
  418.         file_save()
  419.         if ( VAL ! 0 ) {
  420.         return(1)    # error end
  421.         }
  422.         inc(CH)
  423.     }
  424.     inc(NO)
  425.     }
  426.     return(0)
  427. }
  428. #-----------------------------
  429. # Wind buffer save founc
  430. # use NO,CH
  431. #-----------------------------
  432. file_save {
  433.  
  434.     wnewchk(NO,CH)        # No Writeing File
  435.     if ( VAL = 0 ) {
  436.     return(0)
  437.     }
  438.  
  439.     TYPELINE = 7;
  440.     wtype(NO,CH)
  441.     if ( VAL ! 0 ) {
  442.     return(0)        # Not Edit Buffer
  443.     }
  444.  
  445.     echo("\c\n\t下に表示している文書を残しますか？\n")
  446.     yesno("RET")
  447.     if ( RET = 0 ) {
  448.     wtype(999,999)
  449.     return(0)        # File Not Save
  450.     }
  451.  
  452.     wfile(NO,CH,"FILE")        # get File Name
  453.  
  454.     echo("\n\t保存するファイル名を指定してください\n")
  455.     echo("\n\tFile Name ? ")
  456.     input("FILE")        # Cheng File Name ?
  457.     echo("\(FILE)\n")
  458.  
  459.     access(FILE)
  460.     if ( VAL ! 0 ) {        # File already ?
  461.     echo("\n\tファイルに追加ですか？\n")
  462.     yesno("RET")
  463.     if ( RET ! 0 ) {
  464.         file_apend_save()    # goto File apend save
  465.         RET = VAL;
  466.         wtype(999,999)
  467.         return(RET)
  468.     }
  469.     }
  470.  
  471.     echo("\n\t只今保存中です  しばらくお待ちください\n")
  472.     save(NO,CH,FILE,0)        # Nomal file save
  473.     if ( VAL ! 0 ) {
  474.     echo("\n\tファイルの保存に失敗しちゃった\n")
  475.     sleep(3)
  476.     wtype(999,999)
  477.     return(1)        # File Save Error
  478.     }
  479.  
  480.     file_secret_save()
  481.     RET = VAL;
  482.     wtype(999,999)
  483.     return(RET)
  484. }
  485. #---------------------------------
  486. # Wind buffer Apend Save Founc
  487. # use NO,CH,FILE
  488. #---------------------------------
  489. file_apend_save {
  490.  
  491.     echo("\n\t只今保存中です  しばらくお待ちください\n")
  492.     save(NO,CH,FILE,1)        # apend file save
  493.     if ( VAL < 0 ) {
  494.     echo("\n\tうまく追加できないみたい？\n")
  495.     sleep(3)
  496.     return(1)        # file apend error
  497.  
  498.     } else if ( VAL = 0 ) {
  499.     file_secret_save()
  500.     return(VAL)        # nomal file aend end
  501.     }    
  502.  
  503.     echo("\c\n\tこのファイルには鍵がかかってます\n")
  504.     echo("\n\t鍵が無いと追加できませんよ\n")
  505.  
  506.     get_keyword()        # input KEYWORD founc
  507.  
  508.     save(NO,CH,FILE,2)        # apend secret file save
  509.     if ( VAL < 0 ) {
  510.     echo("\c\n\t鍵があってないよ！\n")
  511.     sleep(3)
  512.     return(1)
  513.     }
  514.  
  515.     lock(FILE)            # resecret file
  516.     if ( VAL ! 0 ) {
  517.     echo("\n\tん？シ－クレットに失敗したぁ\n")
  518.     sleep(3)
  519.     return(1)
  520.     }
  521.  
  522.     return(0)
  523. }
  524. #------------------------------
  525. # Wind Buffer secret save
  526. # use NO,CH,FILE
  527. #------------------------------
  528. file_secret_save {
  529.  
  530.     wsecret(NO,CH,"RET")
  531.     if ( RET = 0 ) {
  532.     return(0)        # No Secret File
  533.     }
  534.  
  535.     echo("\c\n\tこのファイルに鍵をかけちゃいます\n")
  536.     echo("\n\t人にばれない鍵を入力しちゃいましょう\n")
  537.  
  538.     get_keyword()        # input KEYWORD founc
  539.  
  540.     lock(FILE)
  541.     if ( VAL ! 0 ) {
  542.     echo("\n\tん？シ－クレットに失敗したぁ\n")
  543.     sleep(3)
  544.     return(1)
  545.     }
  546.     return(0)
  547. }
  548. #++++++++++++++++++++++++++++++
  549. # Whisper Cmds line "??/??/??"
  550. #++++++++++++++++++++++++++++++
  551. date_event {
  552.  
  553.     if ( DEBUG_FLG ! 3 ) {
  554.     DEBUG_FLG = 0;
  555.     return;
  556.     }
  557.  
  558.     _XMAS_EVENT = 0;
  559.     stmenu(394,16,WHIS_COL," Merry Xmas     ",
  560.                " barentin day   ",
  561.                " Happy birthday ",
  562.                " I Love You     ",
  563.                " Color Palette  ",
  564.                " ReInit CONFIG  ",
  565.                " Cursol Set     ",
  566.                " CANCEL         ")
  567.  
  568.     if      ( VAL = 0 ) { event_load() merry_xmas() }
  569.     else if ( VAL = 1 ) { event_load() barentin_day() }
  570.     else if ( VAL = 2 ) { event_load() happy_birthday() }
  571.     else if ( VAL = 3 ) { event_load() I_love_you() }
  572.     else if ( VAL = 4 ) { palette() }
  573.     else if ( VAL = 5 ) { cfg_load("WHISPER.CFG") }
  574.     else if ( VAL = 6 ) { cur_set() }
  575. }
  576. cur_set {
  577.     stmenu(400,20,WHIS_COL,"  \x1B\x87 \x1B\x80 ",
  578.                "  \x1B\xE8 \x1B\xE9 ",
  579.                "  \x1B\xEA \x1B\xEB ",
  580.                "  \x1B\xEC \x1B\xED ")
  581.     _CUR_PTN = VAL;
  582.     echo("\n\n\tCursol Color Code ? ")
  583.     input("_CUR_COL")
  584.     wclose()
  585.     wflush()
  586. }
  587. #++++++++++++++++++++++++++++++
  588. # Whisper Cmds line "??:??:??"
  589. #++++++++++++++++++++++++++++++
  590. time_event {
  591.     inc(DEBUG_FLG)
  592. }
  593. #++++++++++++++++++++++++++++++
  594. # Whisper Cmds line "MEMO"
  595. #++++++++++++++++++++++++++++++
  596. memo_up {
  597.     memo(99,99)            # Active Wind insert Memo Buffer
  598. }
  599. #++++++++++++++++++++++++++++
  600. # Whisper Cmds line "SETUP"
  601. #++++++++++++++++++++++++++++
  602. setup {
  603.     balcol(5)
  604.     stmenu(364,16,WHIS_COL," USER NAME   ",
  605.                " Nifty-Serve ",
  606.                " Nanno-NET   ",
  607.                " RS232C MODE ",
  608.                " CANCEL      ")
  609.  
  610.     if      ( VAL = 0 ) { help_load() setup_name() }
  611.     else if ( VAL = 1 ) { help_load() setup_nifty() }
  612.     else if ( VAL = 2 ) { help_load() setup_nanno() }
  613.     else if ( VAL = 3 ) { help_load() setup_com() }
  614. }
  615. #++++++++++++++++++++++++++++
  616. # Whisper Cmds line "HELP"
  617. # ACTWIND is Now Key in Wind
  618. #++++++++++++++++++++++++++++
  619. help {
  620.     stmenu(0,16,WHIS_COL," WHISPER",
  621.              "  MIKE  ",
  622.              "  JOHN  ",
  623.              "  KENT  ",
  624.              "  JACK  ",
  625.              " CANCEL ")
  626.     RET = VAL;
  627.     if ( RET = 5 ) { return }
  628.     help_load()
  629.     if      ( RET = 0 ) { help_whisper() }
  630.     else if ( RET = 1 ) { help_mike() }
  631.     else if ( RET = 2 ) { help_john() }
  632.     else if ( RET = 3 ) { help_kent() }
  633.     else if ( RET = 4 ) { help_jack() }
  634. }
  635. #+++++++++++++++++++++++++++++++++++++++++++++++++
  636. # Whisper Cmds line "MIKE","JOHN","KENT","JACK"
  637. # WIND is clip wind No., MODE is "OPEN"or"CLOSE"
  638. #+++++++++++++++++++++++++++++++++++++++++++++++++
  639. wind {
  640.     if ( STIME ) { return }
  641.  
  642.     if      ( WIND = 0 ) { wind_mike() }
  643.     else if ( WIND = 1 ) { wind_john() }
  644.     else if ( WIND = 2 ) { wind_kent() }
  645.     else if ( WIND = 3 ) { wind_jack() }
  646. }
  647. #------------------------------
  648. # Mike Open/Close Message
  649. #------------------------------
  650. wind_mike {
  651.     bakcol(MIKE_COL)
  652.     tabset(4)
  653.  
  654.     if ( _MIKE_FLG ) {
  655.     echo("\n\tやぁ　\(NAME)さん！\n")
  656.     echo("\n\t今日から\(NAME)さんと一緒にネットワ－クを\n")
  657.     echo("\n\tエンジョイするマイクだよ\n")
  658.     echo("\n\tどんな出会いが\(NAME)さんを待っているかな？\n")
  659.     echo("\n\tまずは、ＤＩＡＬ！\n")
  660.     sleep(5)
  661.     }
  662.  
  663.     tabset(8)
  664.     inc(_MIKE_FLG)
  665. }
  666. #------------------------------
  667. # John Open/Close Message
  668. #------------------------------
  669. wind_john {
  670.     bakcol(JOHN_COL)
  671.     tabset(4)
  672.  
  673.     if ( _JOHN_FLG ) {
  674.     echo("\n\t僕を呼ぶのは、\(NAME)さんだね・・・\n")
  675.     echo("\n\t今度から僕を呼ぶ時には、『ジョン！』って\n")
  676.     echo("\n\t呼んでくれるかな？・・\n")
  677.     echo("\n\tどうしたんだい \(NAME)・・恥ずかしがらないで\n")
  678.     echo("\n\tジョンと叫んでいきな恋文を歌ってくれ\n")
  679.     sleep(5)
  680.     }
  681.  
  682.     tabset(8)
  683.     inc(_JOHN_FLG)
  684. }
  685. #------------------------------
  686. # Kent Open/Close Message
  687. #------------------------------
  688. wind_kent {
  689.     bakcol(KENT_COL)
  690.     tabset(4)
  691.  
  692.     if ( _KENT_FLG ) {
  693.     echo("\n\tはじめまして\(NAME)さん\n")
  694.     echo("\n\t今日から\(NAME)さんの手足となり文書の作成を\n")
  695.     echo("\n\tお手伝いするケントです。\n")
  696.     echo("\n\tこれからよろしくお付き合いの程をお願い\n")
  697.     echo("\n\t申し上げます。\n")
  698.     sleep(5)
  699.     }
  700.  
  701.     tabset(8)
  702.     inc(_KENT_FLG)
  703. }
  704. #------------------------------
  705. # Jack Open/Close Message
  706. #------------------------------
  707. wind_jack {
  708.     bakcol(JACK_COL)
  709.     tabset(4)
  710.  
  711.     if ( _JACK_FLG ) {
  712.     echo("\n\tおれの名前は、ジャック！\n")
  713.     echo("\n\tへへ・・ちょっとした仕事ならおれに任しな！\n")
  714.     echo("\n\tでも厄介ごとは、御免だぜベイビ－！\n")
  715.     echo("\n\tさぁどんな仕事をすりゃいいんだ？\n")
  716.     echo("\n\t気合いを入れて付き合おうぜ！\n")
  717.     sleep(5)
  718.     }
  719.  
  720.     tabset(8)
  721.     inc(_JACK_FLG)
  722. }
  723. #++++++++++++++++++++++++++++++
  724. # Up/Down Loading Start func
  725. #++++++++++++++++++++++++++++++
  726. updown_start {
  727.     snd("\(HOME)START.SND")
  728. }
  729. #++++++++++++++++++++++++++++++
  730. # Up/Down Loading endof func
  731. #++++++++++++++++++++++++++++++
  732. updown_end {
  733.     snd("\(HOME)ENDOF.SND")
  734. }
  735. #++++++++++++++++++++++++++++++
  736. # Beep Char ($07) code recive
  737. #++++++++++++++++++++++++++++++
  738. beep {
  739.     if ( BEEP_FLG ) {
  740.     mem_file("\(HOME)BEEP.SND")
  741.     BEEP_FLG = 1;
  742.     }
  743.     snd("\(HOME)BEEP.SND")
  744. }
  745. #++++++++++++++++++++++++++++++
  746. # Tango Touroku Key func
  747. #++++++++++++++++++++++++++++++
  748. tango_touroku {
  749.     bakcol(WHIS_COL)
  750.     memo_get("WORD")
  751.  
  752.     echo("\n\t単語登録を行います\n")
  753.     echo("\n\tこの言葉を登録するのですか？\n")
  754.     echo("\n\tTango ? ")
  755.     input("WORD")
  756.     cut_word("RET",WORD,0,30)
  757.     echo("\(RET)\n")
  758.  
  759.     echo("\n\tほんとうに登録していいですね？\n")
  760.     yesno("RET")
  761.     if ( VAL = 0 ) { return(1) }
  762.  
  763.     memo_set(WORD)
  764.     return(0)
  765. }
  766. #++++++++++++++++++++++++++++++
  767. # Get 1 line form RS232C func
  768. #++++++++++++++++++++++++++++++
  769. line_chk {
  770.     if ( MSG_FLG ! 0 ) {
  771.     MSG_FLG = 0;
  772.     MSG = PARA;
  773.     get_send_msg()
  774.     STR = MSG;
  775.     } else {
  776.     STR = PARA;
  777.     }
  778.  
  779.     if ( _TALK_FLG ! 0 ) {
  780.         talk_str(STR)
  781.     }
  782.  
  783.     instr(STR,"のユーザーからのメッセージです")
  784.     POS = VAL;
  785.     if ( POS > 11 ) {
  786.     MSG_FLG = 1;
  787.     }
  788. }
  789. #----------------------------------
  790. # Nifty Send Msg Control
  791. # use STR
  792. # use POS
  793. #----------------------------------
  794. get_send_msg {
  795.  
  796.     if ( MSG_COUNT = 6 ) {
  797.     return
  798.     }
  799.  
  800.     bakcol(MIKE_COL)
  801.  
  802.     sub("POS",10)
  803.     cut_word("ID",STR,POS,8)
  804.  
  805.     if        ( MSG_COUNT = 0 ) {
  806.     echo("\n\t\(ID)さんからのメッセージが届きました\n")
  807.     } else if ( MSG_COUNT = 1 ) {
  808.     echo("\n\tまたメッセージが届きましたよ\n")
  809.     } else if ( MSG_COUNT = 2 ) {
  810.     echo("\n\t今度は、何んだぁ？\n")
  811.     } else if ( MSG_COUNT = 3 ) {
  812.     echo("\n\tまただよぉ・・・\n")
  813.     } else if ( MSG_COUNT = 4 ) {
  814.     echo("\n\tいい加減にチャットにでもいったらぁ？\n")
  815.     } else if ( MSG_COUNT = 5 ) {
  816.     echo("\n\tもうしんないよぉ！\n")
  817.     }
  818.  
  819.     echo("\n\t\(MSG)\n")
  820.     echo("\n\tＩＤを[MEMO]に設定しておきますね\n")
  821.     sleep(2)
  822.  
  823.     memo_set(ID)
  824.     inc(MSG_COUNT)
  825. }
  826. #++++++++++++++++++++++++++++++++++++
  827. # Whisper data buffing error founc
  828. #++++++++++++++++++++++++++++++++++++
  829. RETRY {
  830.     color(RED_COL)
  831.     echo("\n\tディスクエラ－が発生しました！\n")
  832.     echo("\n\t\(ERROR)\n")
  833.     color(15)
  834.     echo("\n\t\(TMP)ドライブ以外のドライブを入力してください\n")
  835.     echo("\n\tDrive Name ? ")
  836.     input("DRIVE")
  837.     echo("\(DRIVE)\n")
  838.     echo("\n\tもう一度テンポラリを作成します\n")
  839.     sleep(2)
  840. }
  841. #---------------------
  842. # File Load to Wind
  843. # use NO
  844. # use CH
  845. # use FILE
  846. #---------------------
  847. file_load_wind {
  848.     bakcol(COL)
  849.     FILE = "";
  850.     echo("\n\t読み込むファイル名を入力して\n")
  851.     echo("\n\tLoad File Name ? ")
  852.     input("FILE")
  853.     if ( VAL ! 0 ) { return(1) }
  854.     echo("\(FILE)\n")
  855.  
  856.     load(NO,CH,FILE,0)
  857.     if ( VAL = 1 ) {
  858.     echo("\n\tこのファイルは鍵がかかってます\n")
  859.     get_keyword()
  860.     load(NO,CH,FILE,1)
  861.     }
  862.     RET = VAL;
  863.     if ( VAL < 0 ) {
  864.     io_error()
  865.     }
  866.     return(RET)
  867. }
  868. #---------------------
  869. # File Save form Wind
  870. # use NO
  871. # use CH
  872. #---------------------
  873. menu_file_save {
  874.  
  875.     bakcol(COL)
  876.     echo("\n\tファイルにセ－ブするんですか？\n")
  877.     yesno("RET")
  878.     if ( RET = 0 ) {
  879.     return
  880.     }
  881.  
  882.     wfile(NO,CH,"FILE")        # get File Name
  883.  
  884.     echo("\n\t保存するファイル名を指定してください\n")
  885.     echo("\n\tFile Name ? ")
  886.     input("FILE")        # Cheng File Name ?
  887.     if ( VAL ! 0 ) { return(1) }
  888.     echo("\(FILE)\n")
  889.  
  890.     access(FILE)
  891.     if ( VAL ! 0 ) {
  892.     echo("\n\tファイルに上書きしますか？\n")
  893.     yesno("RET")
  894.     if ( RET = 0 ) {
  895.         return(0);
  896.     }
  897.     echo("\c\n\tファイルに上書きします\n")
  898.     echo("\n\t\(FILE)\n")
  899.     }
  900.  
  901.     echo("\n\t只今保存中です  しばらくお待ちください\n")
  902.     save(NO,CH,FILE,0)        # Nomal file save
  903.     if ( VAL ! 0 ) {
  904.     echo("\n\tファイルの保存に失敗しちゃった\n")
  905.     sleep(3)
  906.     io_error()
  907.     return(1)        # File Save Error
  908.     }
  909.  
  910.     file_secret_save()
  911.     RET = VAL;
  912.     return(RET)
  913. }
  914. #++++++++++++++++++++++++++++++
  915. # Wind cmds line "MENU"
  916. # WIND to exec wind no
  917. #++++++++++++++++++++++++++++++
  918. wind_menu {
  919.     if      ( WIND = 0 ) { menu_mike() }
  920.     else if ( WIND = 1 ) { menu_john() }
  921.     else if ( WIND = 2 ) { menu_kent() }
  922. }
  923. #----------------------------
  924. # Mike Menu Cmds
  925. #-----------------------------
  926. menu_mike {
  927.     NO = 0;
  928.     CH = 99;
  929.     COL = MIKE_COL;
  930.     menu_select()
  931.     if      ( VAL = 0 ) {
  932.     file_load_wind()
  933.     wclose()
  934.     wflush()
  935.     } else if ( VAL = 1 ) {
  936.     menu_file_save()
  937.     } else if ( VAL = 2 ) {
  938.     command(NO)
  939.     wflush()
  940.     }
  941. }
  942. #----------------------------
  943. # John Menu Cmds
  944. #-----------------------------
  945. menu_john {
  946.     NO = 1;
  947.     CH = 99;
  948.     COL = JOHN_COL;
  949.     menu_select()
  950.     if      ( VAL = 0 ) {
  951.     file_load_wind()
  952.     wclose()
  953.     wflush()
  954.     } else if ( VAL = 1 ) {
  955.     menu_file_save()
  956.     } else if ( VAL = 2 ) {
  957.     command(NO)
  958.     wflush()
  959.     }
  960. }
  961. #----------------------------
  962. # Kent Menu Cmds
  963. #-----------------------------
  964. menu_kent {
  965.     NO = 2;
  966.     CH = 99;
  967.     COL = KENT_COL;
  968.     menu_select()
  969.     if      ( VAL = 0 ) {
  970.     file_load_wind()
  971.     wclose()
  972.     wflush()
  973.     } else if ( VAL = 1 ) {
  974.     menu_file_save()
  975.     } else if ( VAL = 2 ) {
  976.     command(NO)
  977.     wflush()
  978.     }
  979. }
  980. #----------------------------
  981. # All Wind Menu Select
  982. #-----------------------------
  983. menu_select {
  984.     bakcol(COL)
  985.     mosget("RET","X","Y")
  986.     if ( Y > 400 ) { Y = 400 }
  987.     stmenu(154,Y,COL,"  LOAD  ",
  988.              "  SAVE  ",
  989.              " MS-DOS ",
  990.              " CANCEL ")
  991.     return(VAL)
  992. }
  993. #++++++++++++++++++++++++++++++
  994. # Wind cmds line "SECRET"
  995. #use WIND is wind No.
  996. #++++++++++++++++++++++++++++++
  997. wind_secret {
  998.  
  999.     wsecret(WIND,99,"RET")
  1000.     if ( RET ! 0 ) { return }
  1001.  
  1002.     if        ( WIND = 0 ) {
  1003.     bakcol(MIKE_COL)
  1004.     echo("\n\n\n\n\tうわぁ・・秘密の話をしてるぅ！\n")
  1005.     } else if ( WIND = 1 ) {
  1006.     bakcol(JOHN_COL)
  1007.     if        ( LEVEL < 2 ) {
  1008.         echo("\n\n\n\n\t君の秘密は僕が守ってあげるよ\n")
  1009.     } else if ( LEVEL < 3 ) {
  1010.         echo("\n\n\n\n\t安心して僕の胸に飛び込んでくれ\n")
  1011.     } else {
  1012.         echo("\n\n\n\n\tその想いを大切にしたいんだね\n")
  1013.     }
  1014.     } else if ( WIND = 2 ) {
  1015.     bakcol(KENT_COL)
  1016.     echo("\n\n\n\n\tSECRETですね 論理的に処理します\n")
  1017.     }
  1018.  
  1019.     sleep(3)
  1020. }
  1021. #++++++++++++++++++++++++++++++
  1022. # Wind cmds line "UPLOAD"
  1023. #use WIND is wind No.
  1024. #++++++++++++++++++++++++++++++
  1025. wind_upload {
  1026.     wupload(WIND)
  1027. }
  1028. #++++++++++++++++++++++++++++++
  1029. # Now Uploading in Key func
  1030. #++++++++++++++++++++++++++++++
  1031. now_upload {
  1032. }
  1033. #++++++++++++++++++++++++++++++
  1034. # Wind cmds line Buffer Cheng
  1035. #use WIND is wind No.
  1036. #use OCH is Old Buffer No.
  1037. #use CH is New Buffer No.
  1038. #++++++++++++++++++++++++++++++
  1039. wind_child {
  1040.     wchild(WIND,CH)
  1041. }
  1042. #++++++++++++++++++++++++++++++++++++
  1043. # Active Wind Cheng
  1044. #use OLDWIND is Old Active wind No.
  1045. #use ACTWIND is New Active wind No.
  1046. #++++++++++++++++++++++++++++++++++++
  1047. wind_act_cheng {
  1048. }
  1049. #++++++++++++++++++++++++++++++
  1050. # Mike cmds line "DOWN"
  1051. #++++++++++++++++++++++++++++++
  1052. down_load {
  1053.     bakcol(MIKE_COL)
  1054.     if ( FILE_DOWN ) {
  1055.     echo("\n\tファイルにダウンロ－ドしますか？\n")
  1056.     yesno("RET")
  1057.     if ( RET = 0 ) {
  1058.         return;
  1059.     }
  1060.     echo("\n\tファイル名を入力してください\n")
  1061.     echo("\n\tファイル名？ ")
  1062.     input("FILE_DOWN")
  1063.     if ( VAL ! 0 ) { return(1) }
  1064.     echo("\(FILE_DOWN)\n")
  1065.     wclose()
  1066.     file_down(FILE_DOWN)
  1067.     if ( VAL ! 0 ) {
  1068.         echo("\n\tファイルがオ－プンできません\n")
  1069.         FILE_DOWN = ""
  1070.         io_error()
  1071.     } else {
  1072.         echo("\n\tダウンロ－ドを開始しました\n")
  1073.         sleep(2)
  1074.     }
  1075.  
  1076.     } else {
  1077.     echo("\n\tダウンロ－ドを終わりますか？\n")
  1078.     yesno("RET")
  1079.     if ( RET = 0 ) {
  1080.         return;
  1081.     }
  1082.     FILE_DOWN = ""
  1083.     wclose()
  1084.     file_down("")
  1085.     echo("\n\tダウンロ－ドをおわりました\n")
  1086.     sleep(2)
  1087.     }
  1088. }
  1089. #++++++++++++++++++++++++++++++
  1090. # Mike cmds line "DIAL"
  1091. #++++++++++++++++++++++++++++++
  1092. login {
  1093.     bakcol(MIKE_COL)            # Mike's Color
  1094.     mosget("RET","X","Y")
  1095.     if ( Y > 400 ) { Y = 400 }
  1096.     stmenu(180,Y,MIKE_COL," Nifty-Serve ",
  1097.               "  Nanno-NET  ",
  1098.               " DIRECT DIAL "
  1099.               "  LINE OFF   "
  1100.               "   CANCEL    ")
  1101.     if      ( VAL = 0 ) { nifty_login() }
  1102.     else if ( VAL = 1 ) { nanno_login() }
  1103.     else if ( VAL = 2 ) { direct_dial() }
  1104.     else if ( VAL = 3 ) { line_off() }
  1105. }
  1106. #------------------------------
  1107. # Direct Dial Input TEL No.
  1108. #------------------------------
  1109. direct_dial {
  1110.     bakcol(MIKE_COL)
  1111.  
  1112.     echo("\n\tお好きな所に電話をかけちゃいます\n")
  1113.     echo("\n\tﾓﾃﾞﾑ ｺﾏﾝﾄﾞ? ") input("_DIR_ATCMD") echo("\(_DIR_ATCMD)\n")
  1114.     echo("\n\t電話番号  ? ") input("_DIR_TEL") echo("\(_DIR_TEL)\n")
  1115.     echo("\n\t以上でいいですか？\n")
  1116.     yesno("RET")
  1117.     if ( VAL = 0 ) { return }
  1118.     wclose()
  1119.  
  1120.     ATCMD = _DIR_ATCMD;
  1121.     DIAL = _DIR_TEL;
  1122.     tel_call()
  1123. }
  1124. #------------------------------
  1125. # Modem Line Close & open
  1126. #------------------------------
  1127. line_off {
  1128.     tclose()
  1129.     sleep(3)
  1130.     topen(_PORT)
  1131. }
  1132. #-----------------------------
  1133. # Modem Check if "OK" ?
  1134. #-----------------------------
  1135. at_ok_chk {
  1136.     switch(3,"OK\x0D\x0A")
  1137.     if ( VAL < 0 ) {
  1138.     mosget("RET")
  1139.     if ( RET ! 0 ) {
  1140.         echo("\n\n\tダイアルを中断します\n")
  1141.     } else {
  1142.         color(RED_COL)
  1143.         echo("\n\n\tモデムの接続が変です？\n")
  1144.     }
  1145.     sleep(3)
  1146.     return(1)
  1147.     } else {
  1148.     wait(1)
  1149.     return(0)
  1150.     }
  1151. }
  1152. #-----------------------------
  1153. # tel call founc
  1154. # ATCMD is org AT cmds
  1155. # DIAL is tel NO.
  1156. #-----------------------------
  1157. tel_call {
  1158.  
  1159.     if ( _ATCMD2 > "" ) {
  1160.     tputs("\(_ATCMD2)\n")
  1161.         at_ok_chk()
  1162.         if ( VAL ! 0 ) { return(1) }
  1163.     }
  1164.  
  1165.     if ( _ATCMD3 > "" ) {
  1166.     tputs("\(_ATCMD3)\n")
  1167.     at_ok_chk()
  1168.     if ( VAL ! 0 ) { return(1) }
  1169.     }
  1170.  
  1171.     if ( ATCMD > "" ) {
  1172.     tputs("\(ATCMD)\n")
  1173.     at_ok_chk()
  1174.     if ( VAL ! 0 ) { return(1) }
  1175.     }
  1176.  
  1177.     rc = 0;
  1178.     do ( rc < 10 ) {
  1179.     mosget("RET")
  1180.     if ( RET ! 0 ) {
  1181.         echo("\n\n\tダイアルを中断します\n")
  1182.         sleep(3)
  1183.         return(1)
  1184.     }
  1185.  
  1186.     tputs("\(_ATCMD1)\(DIAL)\n")
  1187.  
  1188.     switch(30,"CONNECT","NO","BUSY")
  1189.     if ( VAL = 0 ) {
  1190.         break
  1191.     } else if ( VAL = 1 ) {
  1192.         color(RED_COL)
  1193.         echo("\n\n\t電話がつながんないよ？\n")
  1194.         color(15)
  1195.     } else if ( VAL = 2 ) {
  1196.         echo("\n\n\tちょっと話中みたいです\n")
  1197.     }
  1198.  
  1199.     if ( rc > 10 ) {
  1200.         echo("\n\tまたの機会に電話しましょうね\n")
  1201.         sleep(3)
  1202.         return(1)
  1203.     }
  1204.  
  1205.     mosget("RET")
  1206.     if ( RET = 0 ) {
  1207.         echo("\n\t約10秒後にかけなおします\n")
  1208.         wait(10)
  1209.         wclose();
  1210.     }
  1211.  
  1212.     inc(rc)            # retry count inc
  1213.     }
  1214. }
  1215. #------------------------------------
  1216. # Dial Nanno-NET Auto Login
  1217. # use _NANNO_ID
  1218. # use _NANNO_PASS (Nanno User Onry)
  1219. # if  _NANNO_ATCMD
  1220. #------------------------------------
  1221. nanno_login {
  1222.     bakcol(MIKE_COL)
  1223.     echo("\n\tNANNO-NETに接続しちゃいますよ\n")
  1224.     echo("\n\t中断したいならマウスのボタンを押してね\n")
  1225.     sleep(3)
  1226.     wclose()
  1227.  
  1228.     ATCMD = _NANNO_ATCMD;
  1229.     if ( _NANNO_ID = "GUESTJ" ) {
  1230.     DIAL = "069396808"
  1231.     } else {
  1232.     DIAL = "069392022"
  1233.     }
  1234.  
  1235.     tel_call()            # Nanno-Net Access
  1236.     if ( VAL ! 0 ) { return }
  1237.  
  1238.     switch(30,">")
  1239.     if ( VAL ! 0 ) {
  1240.     mosget("RET")
  1241.     if ( RET ! 0 ) {
  1242.         echo("\n\n\tオ－トログインを中断します\n")
  1243.     } else {
  1244.         echo("\n\n\tNanno-NETがこけてるみたい？\n")
  1245.     }
  1246.     sleep(3)
  1247.     return(1)
  1248.     }
  1249.     tputs("\n")
  1250.  
  1251.     switch(10,"ID=")
  1252.     if ( VAL ! 0 ) {
  1253.     if ( RET ! 0 ) {
  1254.         echo("\n\n\tオ－トログインを中断します\n")
  1255.     } else {
  1256.         echo("\n\n\tれれ？接続に失敗かな？\n")
  1257.     }
  1258.     sleep(3)
  1259.     return(1)
  1260.     }
  1261.     tputs("\(_NANNO_ID)\n")
  1262.  
  1263.     switch(10,"word=")
  1264.     if ( VAL ! 0 ) {
  1265.     if ( RET ! 0 ) {
  1266.         echo("\n\n\tオ－トログインを中断します\n")
  1267.     } else {
  1268.         echo("\n\n\tれれ？IDが違うみたい？\n")
  1269.     }
  1270.     sleep(3)
  1271.     return(1)
  1272.     }
  1273.  
  1274.     if ( _NANNO_ID = "GUESTJ" ) {
  1275.     tputs("\n")            # Non Password Guest Access
  1276.     switch(5,"=")
  1277.     tputs("\(NAME)\n")
  1278.     } else {
  1279.     tputs("\(_NANNO_PASS)\n")
  1280.     }
  1281.     snd("\(HOME)LOGIN.SND")
  1282. }
  1283. #------------------------------------
  1284. # Dial Nifty-Serve Auto Login
  1285. # use _NIFTY_TEL
  1286. # use _NIFTY_ROAD 0 or 1
  1287. # use _NIFTY_ID
  1288. # use _NIFTY_PASS (Nanno User Onry)
  1289. # if  _NIFTY_ATCMD
  1290. #------------------------------------
  1291. nifty_login {
  1292.     bakcol(MIKE_COL)
  1293.     echo("\n\tNIFTY-SERVEに接続しちゃいますよ\n")
  1294.     echo("\n\t中断したいならマウスのボタンを押してね\n")
  1295.     sleep(3)
  1296.     wclose()
  1297.  
  1298.     DIAL = _NIFTY_TEL;
  1299.     ATCMD = _NIFTY_ATCMD;
  1300.     tel_call()            # Nifty-Serve Access
  1301.     if ( VAL ! 0 ) { return }
  1302.  
  1303.     if ( _NIFTY_ROAD ! 0 ) {
  1304.     do ( VAL ! 0 ) {
  1305.         mosget("RET")
  1306.         if ( RET ! 0 ) {
  1307.         echo("\n\n\tログインを中断します\n")
  1308.         sleep(2)
  1309.         return
  1310.         }
  1311.         tputs("@P\n")
  1312.         switch(10,"*")
  1313.     }
  1314.     }
  1315.  
  1316.     rc = 0;
  1317.     do ( VAL ! 0 ) {
  1318.     mosget("RET")
  1319.     if ( RET ! 0 ) {
  1320.         echo("\n\n\tログインを中断します\n")
  1321.         sleep(2)
  1322.         return
  1323.     }
  1324.  
  1325.     if ( rc > 10 ) {
  1326.         echo("\n\n\tえらい混雑してるみたい？\n")
  1327.         sleep(3)
  1328.         return
  1329.     }
  1330.     inc(rc)
  1331.  
  1332.     if ( _NIFTY_ROAD = 0 ) {
  1333.         tputs(".00+")
  1334.     } else {
  1335.         tputs("C NIF\n")
  1336.     }
  1337.     switch(10,"COM")
  1338.     }
  1339.  
  1340.     switch(10,"->")
  1341.     if ( VAL ! 0 ) {
  1342.     if ( RET ! 0 ) {
  1343.         echo("\n\n\tオ－トログインを中断します\n")
  1344.     } else {
  1345.         echo("\n\n\tれれ？Niftyに嫌われた？\n")
  1346.     }
  1347.     sleep(3)
  1348.     return
  1349.     }
  1350.     tputs("SVC\n")
  1351.  
  1352.     switch(10,"->")
  1353.     if ( VAL ! 0 ) {
  1354.     if ( RET ! 0 ) {
  1355.         echo("\n\n\tオ－トログインを中断します\n")
  1356.     } else {
  1357.         echo("\n\n\tれれ？接続に失敗かな？\n")
  1358.     }
  1359.     sleep(3)
  1360.     return
  1361.     }
  1362.     tputs("\(_NIFTY_ID)\n")
  1363.  
  1364.     switch(10,"->")
  1365.     if ( VAL ! 0 ) {
  1366.     if ( RET ! 0 ) {
  1367.         echo("\n\n\tオ－トログインを中断します\n")
  1368.     } else {
  1369.         echo("\n\n\tれれ？IDが違うみたい？\n")
  1370.     }
  1371.     sleep(3)
  1372.     return
  1373.     }
  1374.     tputs("\(_NIFTY_PASS)\n")
  1375.     snd("\(HOME)LOGIN.SND")
  1376. }
  1377. #-------------------------------
  1378. # Jack Std Command founc
  1379. #-------------------------------
  1380. jack_std_cmds {
  1381.     cmdsset("  MIKE  ","jack_file_to_mike",
  1382.         "  JOHN  ","jack_file_to_john",
  1383.         "  KENT  ","jack_file_to_kent",
  1384.         " DELETE ","jack_file_del",
  1385.         "  COPY  ","jack_file_copy",
  1386.         "  MERGE ","jack_file_merge",
  1387.         "  LOOK  ","jack_file_look",
  1388.         " EXTCMD ","jack_ext_cmds",
  1389.         " SECRET ","jack_file_lock")
  1390.     return(1)
  1391. }
  1392. #-------------------------------
  1393. # Jack Ext Command founc
  1394. #-------------------------------
  1395. jack_ext_cmds {
  1396.     cmdsset("XModemUp","jack_file_xmup",
  1397.         "XModemDn","jack_file_xmdn",
  1398.         "","",
  1399.         " RENAME ","jack_file_rename",
  1400.         " MAKDIR ","jack_mak_dir",
  1401.         " DELDIR ","jack_del_dir",
  1402.         " EUPONY ","jack_eup_que",
  1403.         " SYSCMD ","jack_sys_cmds",
  1404.         "UNSECRET","jack_file_unlock")
  1405.     return(1)
  1406. }
  1407. #-------------------------------
  1408. # Jack Sys Command founc
  1409. #-------------------------------
  1410. jack_sys_cmds {
  1411.     cmdsset(" ISH   r","jack_sys_ish_r",
  1412.         " LHARC x","jack_sys_lharc_x",
  1413.         "","",
  1414.         "","",
  1415.         "","",
  1416.         " ORICON ","jack_sys_oricon",
  1417.         " CONSOL ","jack_sys_shell",
  1418.         " STDCMD ","jack_std_cmds",
  1419.         "","")
  1420.     return(1)
  1421. }
  1422. #--------------------------------
  1423. # File I/O Error func
  1424. #--------------------------------
  1425. io_error {
  1426.     error("ERRNO")
  1427.     color(RED_COL)
  1428.     echo("\c\n\tERRNO = \(ERRNO)\n")
  1429.     if        ( ERRNO = 0 ) {           # 0 No_error_occurred
  1430.     echo("\n\tNo Error occurred\n")
  1431.     } else if ( ERRNO = 1 ) {           # 1 Error_invalid_function
  1432.     echo("\n\tうう・・風邪をひいたみたい\n")
  1433.     } else if ( ERRNO = 2 ) {           # 2 Error_file_not_found
  1434.     echo("\n\tげ！ファイルが見つかんない！\n")
  1435.     } else if ( ERRNO = 3 ) {           # 3 Error_path_not_found
  1436.     echo("\n\tファイル名がおかしいみたい！\n")
  1437.     } else if ( ERRNO = 4 ) {           # 4 Error_too_many_open_files
  1438.     echo("\n\tすでにファイルをアクセスしてる！\n")
  1439.     } else if ( ERRNO = 5 ) {           # 5 Error_access_denied
  1440.     echo("\n\tえ－ん・・拒否されたぁ！\n")
  1441.     } else if ( ERRNO = 6 ) {           # 6 Error_invalid_handle
  1442.     echo("\n\tうう・・・やばいよぉ\n")
  1443.     } else if ( ERRNO = 7 ) {           # 7 Error_arena_trashed
  1444.     echo("\n\tごみがあるよぉ？\n")
  1445.     } else if ( ERRNO = 8 ) {           # 8 Error_not_enough_memory
  1446.     echo("\n\tメモリが足りないよぉ\n")
  1447.     } else if ( ERRNO = 9 ) {           # 9 Error_invalid_block
  1448.     echo("\n\tげ・・めちゃ異常です\n")
  1449.     } else if ( ERRNO = 10 ) {          # 10 Error_bad_environment
  1450.     echo("\n\t環境変数が壊れちゃった\n")
  1451.     } else if ( ERRNO = 11 ) {          # 11 Error_bad_format
  1452.     echo("\n\tフォ－マットが変！\n")
  1453.     } else if ( ERRNO = 12 ) {          # 12 Error_invalid_access
  1454.     echo("\n\t異常なアクセスだよ！\n")
  1455.     } else if ( ERRNO = 13 ) {          # 13 Error_invalid_data
  1456.     echo("\n\t変なデ－タだぁ！\n")
  1457.     } else if ( ERRNO = 14 ) {          # 14 Error_reserved
  1458.     echo("\n\t予備!\n")
  1459.     } else if ( ERRNO = 15 ) {          # 15 Error_invalid_drive
  1460.     echo("\n\t変なドライブだなぁ\n")
  1461.     } else if ( ERRNO = 16 ) {          # 16 Error_current_directory
  1462.     echo("\n\tディレクトリがおかしい？")
  1463.     } else if ( ERRNO = 17 ) {          # 17 Error_not_same_device
  1464.     echo("\n\tデバイスがおかしいよ？\n")
  1465.     } else if ( ERRNO = 18 ) {          # 18 Error_no_more_files
  1466.     echo("\n\tもうファイルは無いよ\n")
  1467.     } else if ( ERRNO = 19 ) {          # 19 Error_invalid_radix
  1468.     echo("\n\t変!\n")
  1469.     } else if ( ERRNO = 20 ) {          # 20 Error_numeric_read_failed
  1470.     echo("\n\t読み込みエラ－！！\n")
  1471.     } else if ( ERRNO = 21 ) {          # 21 Error_write_failed
  1472.     echo("\n\t書き込みエラ－！！\n")
  1473.     } else if ( ERRNO = 22 ) {          # 22 Error_eof_encountered
  1474.     echo("\n\tとにかく終わりだ！\n")
  1475.     } else if ( ERRNO = 23 ) {          # 23 Error_out_of_domain
  1476.     echo("\n\tとにかく変!\n")
  1477.     } else if ( ERRNO = 24 ) {          # 24 Error_out_of_range
  1478.     echo("\n\t範囲を越えたぁ！\n")
  1479.     }
  1480.     sleep(3)
  1481. }
  1482. #---------------------------------
  1483. # Jack File to Mike (File Upload)
  1484. #---------------------------------
  1485. jack_file_to_mike {
  1486.     bakcol(JACK_COL)            # Jack's Color
  1487.  
  1488.     if ( FILE ) {        # Not File Name
  1489.     echo("\n\tファイルの指定がねぇぜ！\n")
  1490.     sleep(2)
  1491.     return(1)
  1492.     }
  1493.  
  1494.     echo("\n\tMIKEにファイルをアップさせるけど\n")
  1495.     echo("\n\tいいんだね！\n")
  1496.     yesno("RET") if ( RET = 0 ) { return(1) }
  1497.  
  1498.     if ( LEVEL < 2 ) {
  1499.     echo("\n\tオ－イMIKE！ \(NAME)さんが呼んでるぜ\n")
  1500.     sleep(2)
  1501.     bakcol(MIKE_COL)            # Jack's Color
  1502.     echo("\c\n\tは－い・ほんじゃアップするね\n")
  1503.     sleep(2)
  1504.     }
  1505.  
  1506.     wclose();
  1507.     while ( 0 ) {
  1508.  
  1509.     arg - FILE;
  1510.     if ( arg ) { break }
  1511.     shift(FILE)
  1512.  
  1513.     fsecret(arg)
  1514.     if ( VAL ! 0 ) {
  1515.         balcol(MIKE_COL)
  1516.         echo("\n\tこのファイルは鍵がかかってます！\n")
  1517.         get_keyword()
  1518.         unlock(arg)
  1519.         if ( VAL ! 0 ) {
  1520.         echo("\n\t鍵があってないからアップやんぴ！\n")
  1521.         sleep(3)
  1522.         return(1)
  1523.         }
  1524.         wclose()
  1525.         file_up(arg)
  1526.         lock(arg)
  1527.     } else {
  1528.         file_up(arg)
  1529.     }
  1530.  
  1531.     if ( VAL ! 0 ) {
  1532.         balcol(MIKE_COL)
  1533.         echo("\n\tなんか変だよ？アップをやめちゃうね\n")
  1534.         sleep(3)
  1535.         io_error()
  1536.         return(1)
  1537.     }
  1538.     }
  1539.     return(0)
  1540. }
  1541. #-------------------------------
  1542. # Jack File to John Edit buffer
  1543. #-------------------------------
  1544. jack_file_to_john {
  1545.     bakcol(JACK_COL)
  1546.  
  1547.     if ( FILE ) {
  1548.     echo("\n\t先にファイルを指定するんだぜ！\n")
  1549.     sleep(2)
  1550.     return(1)
  1551.     }
  1552.  
  1553.     echo("\n\tキザな野郎に編集させちまっても\n")
  1554.     echo("\n\tいいのかいベイビ－？\n")
  1555.  
  1556.     yesno("RET")
  1557.     if ( RET = 0 ) { return(1) }    # noexec
  1558.  
  1559.     if ( LEVEL < 2 ) {
  1560.     echo("\n\tJOHNにゃ気をつけな！\n")
  1561.     sleep(2)
  1562.     }
  1563.     bakcol(JOHN_COL)
  1564.  
  1565.     while ( 0 ) {
  1566.     arg - FILE;
  1567.     if ( arg ) { break }
  1568.     shift(FILE)
  1569.  
  1570.     echo("\c\n\t君の為にファイルを編集するね\n")
  1571.     echo("\n\t\(arg)\n")
  1572.  
  1573.     load(1,99,arg,0)
  1574.     if ( VAL = 1 ) {
  1575.         echo("\n\tこのファイルは君の恋文かい？\n")
  1576.         get_keyword()
  1577.         load(1,99,arg,1)
  1578.     }
  1579.  
  1580.     if ( VAL ! 0 ) {
  1581.         echo("\n\t信じあえたのは偽りなの？\n")
  1582.         sleep(3)
  1583.         io_error()
  1584.         return(1)
  1585.     }
  1586.     }
  1587.     echo("\n\t君の夢を僕の胸に秘めたよ\n")
  1588.     sleep(2)
  1589.     return(0)
  1590. }
  1591. #-------------------------------
  1592. # Jack File to Kent Edit Buffer
  1593. #-------------------------------
  1594. jack_file_to_kent {
  1595.  
  1596.     bakcol(JACK_COL)
  1597.     if ( FILE ) {
  1598.     echo("\n\tちゃんとしようぜ\n")
  1599.     sleep(2)
  1600.     return(1)
  1601.     }
  1602.  
  1603.     echo("\n\t理屈っぽい野郎にファイルを\n")
  1604.     echo("\n\t編集させるのかい？\n")
  1605.     yesno("RET")
  1606.     if ( RET = 0 ) { 
  1607.     return(1)
  1608.     }
  1609.  
  1610.     if ( LEVEL < 2 ) {
  1611.     echo("\n\tお－い！KENT 何してんだよぉ！\n")
  1612.     echo("\n\tさっさと仕事しろい！\n")
  1613.     sleep(2)
  1614.     }
  1615.     bakcol(KENT_COL)
  1616.  
  1617.     while ( 0 ) {
  1618.     arg - FILE;
  1619.     if ( arg ) { break }
  1620.     shift(FILE)
  1621.  
  1622.     echo("\c\n\t物理的な処理を行います\n")
  1623.     echo("\n\t\(arg)\n")
  1624.  
  1625.     load(2,99,arg,0)
  1626.     if ( VAL = 1 ) {
  1627.         echo("\n\t論理的な処理を必要とします\n")
  1628.         get_keyword()
  1629.         load(2,99,arg,1)
  1630.     }
  1631.  
  1632.     if ( VAL ! 0 ) {
  1633.         echo("\n\t見たことのない行動パタ－ンです\n")
  1634.         sleep(3)
  1635.         io_error()
  1636.         return(1)
  1637.     }
  1638.     }
  1639.     echo("\n\t理性と論理で対処します\n")
  1640.     sleep(2)
  1641.     return(0)
  1642. }
  1643. #-------------------------------
  1644. # Jack File Delete
  1645. #-------------------------------
  1646. jack_file_del {
  1647.     bakcol(JACK_COL)
  1648.  
  1649.     if ( FILE ) {
  1650.     echo("\n\tファイルの指定が必要なんだよ\n")
  1651.     echo("\n\t世話がやけるぜベイビ－！\n")
  1652.     sleep(2)
  1653.     return(1)
  1654.     }
  1655.  
  1656.     echo("\n\tファイルを永遠に葬りさっちまうぜ\n")
  1657.     echo("\n\t後で文句を言っても知らねえからな！\n")
  1658.     yesno("RET")
  1659.     if ( RET = 0 ) { 
  1660.     return(1)
  1661.     }
  1662.  
  1663.     while ( 0 ) {
  1664.     arg - FILE;
  1665.     if ( arg ) { break }
  1666.     shift(FILE)
  1667.  
  1668.     echo("\c\n\tつらい想いにGOOD-BYE！\n")
  1669.     echo("\n\t\(arg)\n")
  1670.  
  1671.     delete(arg)
  1672.     if ( VAL ! 0 ) {
  1673.         echo("\n\tどうやら俺の負けだぜ・・・・\n")
  1674.         sleep(3)
  1675.         io_error()
  1676.         return(1)
  1677.     }
  1678.     }
  1679.  
  1680.     echo("\n\t仕事の後はすきっとするぜ！\n")
  1681.     sleep(2)
  1682.     return(0)
  1683. }
  1684. #-------------------------------
  1685. # Jack File copy
  1686. #-------------------------------
  1687. jack_file_copy {
  1688.     bakcol(JACK_COL)
  1689.  
  1690.     if ( FILE ) {
  1691.     echo("\n\t何してんだぁ！\n")
  1692.     echo("\n\t先にファイルを指定しろい！\n")
  1693.     sleep(2)
  1694.     return(1)
  1695.     }
  1696.  
  1697.     echo("\n\t俺にファイルのコピ－をさせるのかい？\n")
  1698.     echo("\n\t泣けるぜ・・・ベイビ－\n")
  1699.     yesno("RET")
  1700.     if ( RET = 0 ) { 
  1701.     return(1)
  1702.     }
  1703.  
  1704.     while ( 0 ) {
  1705.     arg - FILE;
  1706.     if ( arg ) {
  1707.         break;
  1708.     }
  1709.     shift(FILE)
  1710.  
  1711.     getdir("new")
  1712.     if ( VAL ! 0 ) {
  1713.         new = "";
  1714.     }
  1715.     copy_name("RET",arg)
  1716.     new + RET;
  1717.  
  1718.     echo("\c\n\tてやんでぇコピ－だぜぇ！\n")
  1719.     echo("\n\tSouc \(arg)\n")
  1720.     echo("\n\tCopy ")
  1721.     input("new")
  1722.     if ( VAL ! 0 ) { return(1) }
  1723.     echo("\(new)\n")
  1724.  
  1725.     if ( arg = new ) {
  1726.         echo("\n\tてめぇ同じファイルじゃないか！\n")
  1727.         sleep(3)
  1728.         return(1)
  1729.     }
  1730.  
  1731.     access(new)
  1732.     if ( VAL ! 0 ) {
  1733.         echo("\c\n\t同じ名前のファイルがすでにあるぜ！\n")
  1734.         echo("\n\tコピ－しちまってもいいのかい？\n")
  1735.         echo("\n\tCopy \(new)\n")
  1736.         yesno("RET")
  1737.         if ( VAL = 0 ) {
  1738.         return(1)
  1739.         }
  1740.     }
  1741.  
  1742.     echo("\n\tちょっとは待ちな！\n")
  1743.     copy(arg,new)
  1744.  
  1745.     if ( VAL ! 0 ) {
  1746.         echo("\n\tうう・・男泣かせの夢だぜ\n");
  1747.         sleep(3)
  1748.         io_error()
  1749.         return(1)
  1750.     }
  1751.     }
  1752.     echo("\n\tふぅなんとか終わったようだぜ\n")
  1753.     sleep(2)
  1754.     return(0)
  1755. }
  1756. #-------------------------------
  1757. # Jack File Merge
  1758. #-------------------------------
  1759. jack_file_merge {
  1760.     bakcol(JACK_COL)
  1761.     if ( FILE ) {
  1762.     echo("\n\n\tてめぇファイルをちゃんと指定しろよぉ\n")
  1763.     sleep(2)
  1764.     return(1)
  1765.     }
  1766.  
  1767.     moto - FILE;
  1768.     shift(FILE)
  1769.  
  1770.     if ( FILE ) {
  1771.     echo("\n\n\t１つしかファイルがねいぞっと\n")
  1772.     sleep(2)
  1773.     return(1)
  1774.     }
  1775.  
  1776.     echo("\n\n\tファイルをくっつけちまうぜ\n")
  1777.     echo("\n\tほんとうにやってもいいんだろうね？\n\n")
  1778.     yesno("RET")
  1779.     if ( RET = 0 ) { 
  1780.     return(1)
  1781.     }
  1782.  
  1783.     FLG = 0;
  1784.     fsecret(moto)
  1785.     if ( VAL ! 0 ) {
  1786.     echo("\c\n\t元になるファイルに鍵がかかってる！\n")
  1787.     echo("\n\t鍵を入力しろい！\n")
  1788.     get_keyword()
  1789.     unlock(moto)
  1790.     if ( VAL ! 0 ) {
  1791.         echo("\n\t鍵があってな`い！\n")
  1792.         sleep(3)
  1793.         return(1)
  1794.     }
  1795.     FLG = 1;
  1796.     }
  1797.  
  1798.     while ( 0 ) {
  1799.     arg - FILE;
  1800.     if ( arg ) {
  1801.         break;
  1802.     }
  1803.     shift(FILE)
  1804.  
  1805.     echo("\c\n\tファイルをくっつけてるぜ\n")
  1806.     echo("\n\t\(moto) + \(arg)\n")
  1807.  
  1808.     fsecret(arg)
  1809.     if ( VAL ! 0 ) {
  1810.         echo("\n\tげ・・鍵がかかってます!\n")
  1811.         echo("\n\t鍵を入力しなきゃ駄目\n")
  1812.         get_keyword()
  1813.         unlock(arg)
  1814.         if ( VAL ! 0 ) {
  1815.         echo("\n\t鍵があってないからやんぴ！\n")
  1816.         sleep(2)
  1817.         return(1)
  1818.         }
  1819.         FLG = 1;
  1820.         SFG = 1;
  1821.     } else {
  1822.         SFG = 0;
  1823.     }
  1824.  
  1825.     merge(moto,arg)
  1826.     if ( VAL ! 0 ) {
  1827.         echo("\n\n\tあれ？なんか変！\n");
  1828.         sleep(3)
  1829.         io_error()
  1830.         return(1)
  1831.     }
  1832.  
  1833.     if ( SFG = 1 ) {
  1834.         lock(arg)
  1835.         if ( VAL ! 0 ) {
  1836.         echo("\n\t元に戻らないぜ？\n")
  1837.         sleep(2)
  1838.         io_error()
  1839.         return(1)
  1840.         }
  1841.     }
  1842.     }
  1843.  
  1844.     if ( FLG ! 0 ) {
  1845.     echo("\c\n\tふぅ連結が終わったから鍵をかけ直すぜ\n")
  1846.     get_keyword()
  1847.     lock(moto)
  1848.     if ( VAL ! 0 ) {
  1849.         echo("\n\tぎゃぁ鍵をかけそこねたぁ！\n")
  1850.         sleep(3)
  1851.         io_error()
  1852.         return(1)
  1853.     }
  1854.     }
  1855.  
  1856.     echo("\n\t何もかも終わったぁ\n")
  1857.     sleep(2)
  1858.     return(0)
  1859. }
  1860. #-------------------------------
  1861. # Jack File Look (TIFF,SND,EUP..)
  1862. #-------------------------------
  1863. jack_file_look {
  1864.     bakcol(JACK_COL)
  1865.     if ( FILE ) {
  1866.     echo("\n\tばっきゃろぉ！\n")
  1867.     echo("\n\tファイルの指定がねえぞ！\n")
  1868.     sleep(2)
  1869.     return(1)
  1870.     }
  1871.  
  1872.     while ( 0 ) {
  1873.     arg - FILE;
  1874.     if ( arg ) {
  1875.         break;
  1876.     }
  1877.     shift(FILE)
  1878.  
  1879.     wild(arg,"*.tif")
  1880.     if ( VAL ! 0 ) {
  1881.         tiff(arg)
  1882.         sleep(5)
  1883.  
  1884.     } else {
  1885.         wild(arg,"*.snd")
  1886.         if ( VAL ! 0 ) {
  1887.         echo("\n\n\tSNDファイルを鳴らします\n")
  1888.         echo("\n\t\(arg)\n")
  1889.         snd(arg)
  1890.         while ( 0 ) {
  1891.             sleep(1)
  1892.             if ( SND ) {
  1893.             break
  1894.             }
  1895.         }
  1896.         wclose();   
  1897.  
  1898.         } else {
  1899.         wild(arg,"*.eup")
  1900.         if ( VAL ! 0 ) {
  1901.             if ( EUP ! "" ) {
  1902.             echo("\n\n\tすでにEUPが演奏されてるじゃねいか！\n")
  1903.             sleep(3)
  1904.             return(1)
  1905.             }
  1906.             echo("\n\n\tEUPファイルを演奏します\n")
  1907.             echo("\n\t\(arg)\n")
  1908.             EUP_REPLAY_FLG = 0;
  1909.             eup(arg)
  1910.             echo("\n\t中断するならマウスのスイッチを\n")
  1911.             echo("\n\t押してね\n")
  1912.             while ( 0 ) {
  1913.             mosget("RET")
  1914.             if ( RET ! 0 ) {
  1915.                 eupstop()
  1916.                 break
  1917.             }
  1918.                 sleep(1)
  1919.             if ( EUP ) {
  1920.                 break
  1921.             }
  1922.             }
  1923.             wclose();   
  1924.  
  1925.         } else {
  1926.             wild(arg,"*.agp")
  1927.             if ( VAL ! 0 ) {
  1928.             anime(arg)
  1929.             sleep(3)
  1930.  
  1931.             } else {
  1932.             TYPELINE = 28;
  1933.             type(arg)
  1934.             sleep(5)
  1935.             type()
  1936.             TYPELINE = 8;
  1937.             }
  1938.         }
  1939.         }
  1940.     }
  1941.     }
  1942.  
  1943.     gcls()
  1944.     return(0)
  1945. }
  1946. #-------------------------------
  1947. # Jack File Secret Lock
  1948. #-------------------------------
  1949. jack_file_lock {
  1950.     bakcol(JOHN_COL)
  1951.     if ( FILE ) {
  1952.     echo("\n\t何を秘密にするんだい？\n")
  1953.     sleep(2)
  1954.     return(1)
  1955.     }
  1956.  
  1957.     echo("\n\n\tSECRET ROOM へようこそ\n")
  1958.     echo("\n\t鍵を入力してほしいなぁ？\n")
  1959.     get_keyword()
  1960.     if ( KEYWORD ) {
  1961.     return(1)
  1962.     }
  1963.  
  1964.     while ( ) {
  1965.     arg - FILE;
  1966.     if ( arg ) {
  1967.         break;
  1968.     }
  1969.     shift(FILE)
  1970.  
  1971.     echo("\c\n\t只今鍵をかけてます\n")
  1972.     echo("\n\t\(arg)\n")
  1973.  
  1974.     fsecret(arg)
  1975.     if ( VAL ! 0 ) {        # allway secret
  1976.         echo("\n\tこのファイルはすでに鍵がかかってます！\n")
  1977.         sleep(3)
  1978.         return(1)
  1979.     }
  1980.  
  1981.     lock(arg)
  1982.     if ( VAL ! 0 ) {
  1983.         echo("\n\n\tれれれ？\n");
  1984.         sleep(3)
  1985.         io_error()
  1986.         return(1)
  1987.     }
  1988.     }
  1989.     echo("\n\n\t鍵を忘れないでよ\n")
  1990.     sleep(2)
  1991.     return(0)
  1992. }
  1993. #-------------------------------
  1994. # Jack File Xmodem Upload
  1995. #-------------------------------
  1996. jack_file_xmup {
  1997.     bakcol(JACK_COL)
  1998.     if ( FILE ) {
  1999.     echo("\n\n\t先にファイルを指定いなきゃ！\n")
  2000.     sleep(2)
  2001.     return(1)
  2002.     }
  2003.  
  2004.     echo("\n\n\tX-Modemでアップロ－ドを行うよ\n")
  2005.     echo("\n\tほんとうに実行しちゃうの？\n\n")
  2006.     yesno("RET")
  2007.     if ( RET = 0 ) { 
  2008.     return(1)
  2009.     }
  2010.     wclose()
  2011.  
  2012.     arg - FILE;
  2013.     xmodem_up(arg)
  2014.     if ( VAL ! 0 ) {
  2015.     io_error()
  2016.     return(1)
  2017.     }
  2018.     return(0)
  2019. }
  2020. #-------------------------------
  2021. # Jack File Xmodem Download
  2022. #-------------------------------
  2023. jack_file_xmdn {
  2024.     bakcol(JACK_COL)
  2025.     echo("\n\n\tX-Modemでダウンロ－ドを行うよ\n")
  2026.     echo("\n\tほんとうに実行しちゃうの？\n")
  2027.     yesno("RET")
  2028.     if ( RET = 0 ) { 
  2029.     return(1)
  2030.     }
  2031.  
  2032.     echo("\n\tほんじゃファイル名を入力してね\n")
  2033.     echo("\n\tファイル名？ ")
  2034.     arg - FILE;
  2035.     input("arg")
  2036.     if ( VAL ! 0 ) { return(1) }
  2037.     wclose()
  2038.  
  2039.     xmodem_down(arg)
  2040.     if ( VAL ! 0 ) {
  2041.     io_error()
  2042.     return(1)
  2043.     }
  2044.     return(0)
  2045. }
  2046. #-------------------------------
  2047. # Jack Making Snd File
  2048. #-------------------------------
  2049. jack_make_snd {
  2050.     bakcol(JACK_COL)
  2051.     echo("\n\t音声を録音するんですか？\n")
  2052.     yesno("RET")
  2053.     if ( RET = 0 ) { 
  2054.     return(1)
  2055.     }
  2056.     echo("\n\t録音するファイル名を入力してね\n")
  2057.     echo("\n\tファイル名？ ")
  2058.     input("SND")
  2059.     if ( VAL ! 0 ) { return(1) }
  2060.     echo("\n\n\t準備ＯＫかな？\n")
  2061.     yes("RET")
  2062.  
  2063.     make_snd(SND)
  2064.     if ( VAL ! 0 ) {
  2065.     io_error()
  2066.     return(1)
  2067.     }
  2068.     return(0)
  2069. }
  2070. #-------------------------------
  2071. # Jack Secret file to Nomal File
  2072. #-------------------------------
  2073. jack_file_unlock {
  2074.     bakcol(JACK_COL)
  2075.     if ( FILE ) {
  2076.     echo("\n\n\tどのファイルなんだよ？\n")
  2077.     sleep(2)
  2078.     return(1)
  2079.     }
  2080.  
  2081.     echo("\n\n\t普通の世界にもどしちゃうよ\n")
  2082.     echo("\n\t鍵を入力してほしいなぁ？\n")
  2083.     get_keyword()
  2084.     if ( KEYWORD ) {
  2085.     return(1)
  2086.     }
  2087.  
  2088.     while ( ) {
  2089.     arg - FILE;
  2090.     if ( arg ) {
  2091.         break;
  2092.     }
  2093.     shift(FILE)
  2094.  
  2095.     echo("\c\n\t只今鍵をはずしています\n")
  2096.     echo("\n\t\(arg)\n")
  2097.  
  2098.     unlock(arg)
  2099.     if ( VAL ! 0 ) {
  2100.         echo("\n\n\tあれ？\n");
  2101.         sleep(3)
  2102.         return(1)
  2103.     }
  2104.     }
  2105.     echo("\n\n\t上手く開いたかな？\n")
  2106.     sleep(2)
  2107.     return(0)
  2108. }
  2109. #-------------------------------
  2110. # Jack File Rename
  2111. #-------------------------------
  2112. jack_file_rename {
  2113.     bakcol(JACK_COL)
  2114.     if ( FILE ) {
  2115.     echo("\n\t先にファイルを指定してくんなきゃ！\n")
  2116.     sleep(2)
  2117.     return(1)
  2118.     }
  2119.  
  2120.     echo("\n\n\tファイル名を変えちまうぜ\n")
  2121.     echo("\n\tマジかよぉ？\n\n")
  2122.     yesno("RET")
  2123.     if ( RET = 0 ) { 
  2124.     return(1)
  2125.     }
  2126.  
  2127.     while ( 0 ) {
  2128.     arg - FILE;
  2129.     if ( arg ) { break }
  2130.     shift(FILE)
  2131.  
  2132.  
  2133.     echo("\c\n\tどう変えちまうのだい？\n")
  2134.     copy_name("new",arg)
  2135.     echo("\n\tRename ? ")
  2136.     input("new")
  2137.     if ( VAL ! 0 ) { return(1) }
  2138.     echo("\(new)\n")
  2139.     rename(arg,new)
  2140.  
  2141.     if ( VAL ! 0 ) {
  2142.         echo("\n\t上手く変更できなかったよぉ？\n")
  2143.         sleep(3)
  2144.         io_error()
  2145.         return(1)
  2146.     }
  2147.     }
  2148.  
  2149.     echo("\n\tちゃんと変わったか確認しろよ！\n")
  2150.     sleep(3)
  2151.     return(0)
  2152. }
  2153. #-------------------------------
  2154. # Jack Makeing directory
  2155. #-------------------------------
  2156. jack_mak_dir {
  2157.     bakcol(JACK_COL)
  2158.     echo("\n\tおっとﾃﾞｨﾚｸﾄﾘを作っちまうのかい？\n")
  2159.     yesno("RET")
  2160.     if ( RET = 0 ) { return(1) }
  2161.  
  2162.     echo("\n\tほんじゃﾃﾞｨﾚｸﾄﾘ名を決めてくれ\n")
  2163.     echo("\n\tDirectory ? ")
  2164.     DIR = "";
  2165.     input("DIR")
  2166.     if ( VAL ! 0 ) { return(1) }
  2167.     echo("\(DIR)\n")
  2168.  
  2169.     mkdir(DIR)
  2170.     if ( VAL ! 0 ) {
  2171.     echo("\n\tなんか変だぜ！ベイビ－\n")
  2172.     sleep(2)
  2173.     io_error()
  2174.     return(1)
  2175.     }
  2176.  
  2177.     echo("\n\tうまくできたかどうか知らねぇぜ！\n")
  2178.     sleep(2)
  2179.     return(0)
  2180. }
  2181. #-------------------------------
  2182. # Jack delete directory
  2183. #-------------------------------
  2184. jack_del_dir {
  2185.     bakcol(JACK_COL)
  2186.     echo("\n\tおうっとﾃﾞｨﾚｸﾄﾘを葬っちまうのかい？\n")
  2187.     yesno("RET")
  2188.     if ( RET = 0 ) { return(1) }
  2189.  
  2190.     echo("\n\tこいつぁ危ない話だからﾃﾞｨﾚｸﾄﾘ名を\n")
  2191.     echo("\n\tびしっと入力してくれよ！\n")
  2192.     echo("\n\tDirectory ? ")
  2193.     DIR = "";
  2194.     input("DIR")
  2195.     if ( VAL ! 0 ) { return(1) }
  2196.     echo("\(DIR)\n")
  2197.  
  2198.     rmdir(DIR)
  2199.     if ( VAL ! 0 ) {
  2200.     echo("\n\tなんか変だぜ！ベイビ－\n")
  2201.     sleep(2)
  2202.     io_error()
  2203.     return(1)
  2204.     }
  2205.  
  2206.     echo("\n\t危ねえ野郎だぜ！\n")
  2207.     sleep(2)
  2208.     return(0)
  2209. }
  2210. #-------------------------------
  2211. # Jack cfg load
  2212. #-------------------------------
  2213. jack_cfg_exec {
  2214.     bakcol(JACK_COL)
  2215.     if ( FILE ) {
  2216.     echo("\n\n\t先にファイルを指定くんなきゃいや！\n")
  2217.     sleep(2)
  2218.     return(1)
  2219.     }
  2220.  
  2221.     echo("\n\n\tCFGを読み込んじゃうよ\n")
  2222.     yesno("RET")
  2223.     if ( RET = 0 ) { 
  2224.     return(1)
  2225.     }
  2226.  
  2227.     wclose()
  2228.     arg - FILE;
  2229.     if ( arg ) { 
  2230.     return(1)
  2231.     }
  2232.     cfg_load(arg)
  2233.     return(0)
  2234. }
  2235. #-------------------------------
  2236. # Jack Eupony play set up
  2237. #-------------------------------
  2238. jack_eup_que {
  2239.     bakcol(JACK_COL)
  2240.     if ( FILE ) {
  2241.     echo("\n\n\tどのゆ－ほぉに－なんだよ！\n")
  2242.     sleep(2)
  2243.     return(1)
  2244.     }
  2245.     echo("\n\tゆ－ほぉに－キュ－バッファに設定\n")
  2246.     echo("\n\tしてやったぜ・・後は適当に鳴らしな\n")
  2247.     echo("\n\tおっとWHISPERのメニュ－の[EUPONY]を\n")
  2248.     echo("\n\t使って演奏させなきゃいけねぇぜ\n")
  2249.     sleep(5)
  2250.     EUP_QUE + FILE;
  2251.     return(0)
  2252. }
  2253. #-------------------------------
  2254. # Jack SysCmds "ISH /r"
  2255. #-------------------------------
  2256. jack_sys_ish_r {
  2257.     bakcol(JACK_COL)
  2258.     if ( FILE ) {
  2259.     echo("\n\n\tISHファイルを指定するんだよ！\n")
  2260.     sleep(2)
  2261.     return(1)
  2262.     }
  2263.  
  2264.     echo("\n\tISHをバシっと起動して解凍するぜ\n")
  2265.     echo("\n\tちゃんとISHがあるんだろうなぁ？\n")
  2266.     yesno("RET")
  2267.     if ( RET = 0 ) { 
  2268.     return(1)
  2269.     }
  2270.  
  2271.     while ( 0 ) {
  2272.     arg - FILE;
  2273.     if ( arg ) { break }
  2274.     shift(FILE)
  2275.  
  2276.     echo("\c\n\tISHファイルを解凍するぜ\n")
  2277.     echo("\n\t\(arg)\n")
  2278.  
  2279.     system("ISH \(arg) /r")
  2280.     }
  2281.  
  2282.     echo("\n\t疲れる野郎だぜ\n")
  2283.     sleep(2)
  2284.     access("\(HOME)EVENT.CFG")            # Dug? Highc-C system()
  2285.     return(0)
  2286. }
  2287. #-------------------------------
  2288. # Jack SysCmds "LHARC x"
  2289. #-------------------------------
  2290. jack_sys_lharc_x {
  2291.     bakcol(JACK_COL)
  2292.     if ( FILE ) {
  2293.     echo("\n\n\tLZHファイルを指定するんだよ！\n")
  2294.     sleep(2)
  2295.     return(1)
  2296.     }
  2297.  
  2298.     echo("\n\tLHARCをこき使って解凍するぜ\n")
  2299.     echo("\n\tちゃんとLHARCがあるんだろうなぁ？\n")
  2300.     yesno("RET")
  2301.     if ( RET = 0 ) { 
  2302.     return(1)
  2303.     }
  2304.  
  2305.     while ( 0 ) {
  2306.     arg - FILE;
  2307.     if ( arg ) { break }
  2308.     shift(FILE)
  2309.  
  2310.     echo("\c\n\tLZHファイルを解凍するぜ\n")
  2311.     echo("\n\t\(arg)\n")
  2312.  
  2313.     system("LHARC x /m \(arg)")
  2314.     }
  2315.  
  2316.     echo("\n\tなんとか終わったようだが・・・\n")
  2317.     sleep(2)
  2318.     access("\(HOME)EVENT.CFG")            # Dug? Highc-C system()
  2319.     return(0)
  2320. }
  2321. #----------------------------------
  2322. # Jack SysCmds Command Line Input
  2323. #----------------------------------
  2324. jack_sys_shell {
  2325.     command(999)
  2326. }
  2327. #-------------------------------
  2328. # Jack SysCmds "ORICON"
  2329. #-------------------------------
  2330. jack_sys_oricon {
  2331.     bakcol(JACK_COL)
  2332.     echo("\n\tおお！ORICONを使うたぁいい根性だ！\n")
  2333.     echo("\n\tメモリ不足で死んじまうぜ！\n")
  2334.     yesno("RET")
  2335.     if ( RET = 0 ) { 
  2336.     return(1)
  2337.     }
  2338.     system("ORICON \(FILE)")
  2339.     access("\(HOME)EVENT.CFG")            # Dug? Highc-C system()
  2340.     return(0)
  2341. }
  2342. #++++++++++++++++++++++++++++++
  2343. # 1 Sec Interval Timer irq
  2344. #++++++++++++++++++++++++++++++
  2345. interval_timer {
  2346. }
  2347.